﻿Imports DTO
Imports DAO
Public Class BangDiemBUS
    Public Sub CapNhatBangDiem(ByVal dsBangDiem As List(Of BangDiemDTO))
        Dim daoTemp As New BangDiemDAO
        daoTemp.CapNhatBangDiem(dsBangDiem)
    End Sub
    Public Sub ThemBangDiem(ByVal BangDiem As BangDiemDTO)
        Dim daoTemp As New BangDiemDAO
        daoTemp.ThemBangDiem(BangDiem)
    End Sub
    Public Sub CapNhatBangDiem(ByVal BangDiem As BangDiemDTO)
        Dim daoTemp As New BangDiemDAO
        daoTemp.CapNhatBangDiem(BangDiem)
    End Sub
    Public Function LayBangDiem(ByVal MaHocSinh As Integer) As DataTable
        Dim daoTemp As New BangDiemDAO
        Return daoTemp.LayBangDiem(MaHocSinh)
    End Function
    Public Sub XoaBangDiemCuaMon(ByVal BangDiem As BangDiemDTO)
        Dim daoTemp As New BangDiemDAO
        daoTemp.XoaDiemCuaMotMon(BangDiem)
    End Sub
    Public Function KiemTra(ByVal MaHocSinh As Integer, ByVal MaDiemMonHoc As Integer) As Integer
        Dim daoTemp As New BangDiemDAO
        Return daoTemp.KiemTra(MaHocSinh, MaDiemMonHoc)
    End Function
End Class
